home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / begman.lha / begmanual / begman01.ps < prev    next >
Text File  |  1992-02-14  |  12KB  |  650 lines
  1. %!PS-Adobe-2.0
  2. %%Title: (null)
  3. %%Creator: emmel
  4. %%CreationDate: Wed Dec  4 10:40:50 1991
  5. %%Pages: 0
  6. %%BoundingBox: 18 2.88 484.167 445.047
  7. %%EndComments
  8. /draw_initial_state save def
  9. /displaylistdict 80 dict def
  10. displaylistdict begin
  11.  
  12. %% catch nocurrentpoint error for:
  13. %% pathbbox
  14.     /ncpoint errordict /nocurrentpoint get def
  15.     errordict begin
  16.     /nocurrentpoint
  17.     {
  18.     dup /pathbbox load eq
  19.     { pop 0 0 1 1 }
  20.     { ncpoint }
  21.     ifelse
  22.     } bind def
  23.     end
  24.  
  25.     /m {moveto} bind def
  26.     /l {lineto} bind def
  27.  
  28. %% pattern stuff
  29.     /BPSIDE 32 def    %% pixels per pattern side
  30.     /PATFREQ 3.0 def    %% pattern pixels per mm
  31.  
  32.     /drawpat_mat [PATFREQ 0 0 PATFREQ 0 0] def
  33.     /drawpat_pw BPSIDE def    %% pattern pixel width
  34.     /drawpat_ph BPSIDE def    %% pattern pixel height
  35.     /drawpat_w drawpat_pw PATFREQ div def    %% pattern mm width
  36.     /drawpat_h drawpat_ph PATFREQ div def    %% pattern mm height
  37.     /drawpat_bs 1 def        %% pattern bits per pixel
  38.  
  39.     /topmat matrix def
  40.     /patmat matrix def
  41.  
  42.     /start_display_list
  43.     {    
  44.     0    setlinecap
  45.     10    setmiterlimit
  46.     } bind def
  47.  
  48.     /patpath {
  49.     topmat setmatrix
  50.     pathbbox    %% get lo - hi indecies
  51.     /hy exch drawpat_h div floor cvi def
  52.     /hx exch drawpat_w div floor cvi def
  53.     /ly exch drawpat_h div floor cvi def
  54.     /lx exch drawpat_w div floor cvi def
  55.     lx 1 hx {
  56.         drawpat_w mul
  57.         ly 1 hy {
  58.         drawpat_h mul
  59.         exch dup 3 1 roll exch
  60.         patmat currentmatrix pop
  61.         translate
  62.         drawpat_pw drawpat_ph drawpat_bs
  63.         drawpat_mat drawpat_proc image
  64.         patmat setmatrix
  65.         } for
  66.         pop
  67.     } for
  68.     } bind def
  69.  
  70.     /saveCurrentPoint
  71.     {
  72.     currentpoint /cpy exch def /cpx exch def
  73.     } bind def
  74.  
  75.     /restoreCurrentPoint
  76.     {
  77.     cpx cpy moveto
  78.     } bind def
  79.     /r {rmoveto} bind def
  80.     /sp {x 0 rmoveto} bind def
  81.     /rl {rlineto} bind def
  82.     /onelet 1 string def
  83.  
  84. %% show a string
  85.     /s {
  86.         complex_color
  87.         {
  88.         {
  89.             onelet exch 0 exch put
  90.             gsave
  91.             onelet true charpath
  92.             clip patpath
  93.             grestore
  94.             onelet stringwidth rmoveto
  95.         } forall
  96.         }
  97.         { show }
  98.         ifelse
  99.     } bind def
  100.  
  101.     /box { newpath m l l l closepath } bind def
  102.     /pix_to_units { 144 300 div mul } bind def
  103.     /apix_to_units { 144 exch div mul } bind def
  104.  
  105.     /reencode_small_dict 12 dict def
  106.     /ReencodeSmall {
  107.     reencode_small_dict begin
  108.     /new_codes_and_names exch def
  109.     /new_font_name exch def
  110.     /base_font_name exch def
  111.  
  112.     /base_font_dict base_font_name findfont def
  113.     /newfont base_font_dict maxlength dict def
  114.  
  115.     base_font_dict {
  116.         exch dup /FID ne
  117.         { dup /Encoding eq
  118.             { exch dup length array copy newfont 3 1 roll put }
  119.             { exch newfont 3 1 roll put }
  120.             ifelse
  121.         }
  122.         { pop pop }
  123.         ifelse
  124.     } forall
  125.  
  126.     newfont /FontName new_font_name put
  127.     new_codes_and_names aload pop
  128.  
  129.     new_codes_and_names length 2 idiv
  130.     { newfont /Encoding get 3 1 roll put }
  131.     repeat
  132.  
  133.     new_font_name newfont definefont pop
  134.     end     %%reencode_small_dict
  135.     } def
  136.  
  137.     /extended_Zapf [
  138.     8#223 /a89
  139.     8#224 /a90
  140.     8#225 /a93
  141.     8#226 /a94
  142.     8#227 /a91
  143.     8#230 /a92
  144.     8#231 /a205
  145.     8#232 /a85
  146.     8#233 /a206
  147.     8#234 /a86
  148.     8#235 /a87
  149.     8#236 /a88
  150.     8#237 /a95
  151.     8#240 /a96
  152.     ] def
  153.  
  154.     /extended_Standard [
  155.     128 /Acircumflex
  156.     129 /Adieresis
  157.     130 /Agrave
  158.     131 /Aring
  159.     132 /Atilde
  160.     133 /Ccedilla
  161.     134 /Eacute
  162.     135 /Ecircumflex
  163.     136 /Edieresis
  164.     137 /Egrave
  165.     138 /Iacute
  166.     139 /Icircumflex
  167.     140 /Idieresis
  168.     141 /Igrave
  169.     142 /Ntilde
  170.     143 /Oacute
  171.     144 /Ocircumflex
  172.     145 /Odieresis
  173.     146 /Ograve
  174.     147 /Otilde
  175.     148 /Scaron
  176.     149 /Uacute
  177.     150 /Ucircumflex
  178.     151 /Udieresis
  179.     152 /Ugrave
  180.     153 /Ydieresis
  181.     154 /Zcaron
  182.     155 /aacute
  183.     156 /acircumflex
  184.     157 /adieresis
  185.     158 /agrave
  186.     159 /aring
  187.     160 /atilde
  188.     209 /ccedilla
  189.     210 /copyright
  190.     211 /eacute
  191.     212 /ecircumflex
  192.     213 /edieresis
  193.     214 /egrave
  194.     215 /iacute
  195.     216 /icircumflex
  196.     217 /idieresis
  197.     218 /igrave
  198.     219 /logicalnot
  199.     220 /minus
  200.     221 /ntilde
  201.     222 /oacute
  202.     223 /ocircumflex
  203.     224 /odieresis
  204.     228 /ograve
  205.     229 /otilde
  206.     230 /registered
  207.     231 /scaron
  208.     236 /trademark
  209.     237 /uacute
  210.     238 /ucircumflex
  211.     239 /udieresis
  212.     240 /ugrave
  213.     242 /ydieresis
  214.     243 /zcaron
  215.     244 /Aacute
  216.     ] def
  217.  
  218.     /extended_Symbol [
  219.     ] def
  220.  
  221.     /extend_font {  %% stack: fontname newfontname
  222.     exch dup (ZapfDingbats) eq
  223.         { cvn exch cvn extended_Zapf ReencodeSmall }
  224.         { dup (Symbol) eq
  225.         { cvn exch cvn extended_Symbol ReencodeSmall }
  226.         { cvn exch cvn extended_Standard ReencodeSmall }
  227.         ifelse
  228.         }
  229.     ifelse
  230.     } bind def
  231.  
  232.     /getfont {
  233.     /f exch def f cvn where
  234.     { begin f cvx cvn exec setfont end }
  235.     { f 0 f length 3 sub getinterval (LocalFont) extend_font
  236.         /LocalFont findfont
  237.         /sz f f length 3 sub 3 getinterval cvi def
  238.         [ sz 0 0 sz neg 0 0 ] makefont dup f cvn exch def
  239.         setfont
  240.     }
  241.     ifelse
  242.     } bind def
  243.  
  244.     /ul { %% space drop thickness
  245.     gsave currentpoint currentlinewidth 
  246.     currentpoint newpath moveto 6 -3 roll 
  247.     setlinewidth 0 exch r
  248.     0 rl stroke setlinewidth m
  249.     grestore 
  250.     } bind def
  251.  
  252.     /ss { currentpoint pop exch m } bind def
  253.  
  254.     /image_raster { %% sw sh dw dh xs ys
  255.     translate scale /sh exch def /sw exch def
  256.     /imagebuf sw 7 add 8 idiv string def
  257.     sw sh 1 [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop }
  258.     image
  259.     } bind def
  260.  
  261.     /leader_insert 
  262.     { 
  263.     /str exch def /sp1 exch def 
  264.     -1 0 { pop sp1 0 str ashow } for
  265.     } bind def
  266.  
  267.     /nx { /x exch def } bind def
  268.     0. nx
  269. %%EndProlog
  270.  
  271. %%Page: 1 1
  272. gsave 2.83465 -2.83465 scale
  273. saveCurrentPoint newpath restoreCurrentPoint
  274. 164.453 0 rlineto
  275. 0 155.987 rlineto
  276. -164.453 0 rlineto
  277. closepath clip
  278. -18.8653 -12.092 rmoveto
  279. currentpoint translate
  280. topmat currentmatrix pop
  281. start_display_list
  282.  
  283. % irpoly2
  284. 0 setlinejoin
  285. 0.2 setlinewidth
  286. 0 setgray
  287. gsave
  288. newpath 107.5 127.5 m
  289. 130 127.5 l
  290. 130 137.5 l
  291. 107.5 137.5 l
  292. closepath
  293. stroke
  294. grestore
  295.  
  296. % rfrm
  297. 2 setlinejoin
  298. gsave
  299. % 4 arcs
  300. matrix currentmatrix
  301. 120.01 22.61 translate
  302. 7.56 7.56 scale
  303. newpath 0 0 1 180 270 arc setmatrix
  304. matrix currentmatrix
  305. 144.89 22.61 translate
  306. 7.56 7.56 scale
  307. 0 0 1 270 0 arc setmatrix
  308. matrix currentmatrix
  309. 144.89 22.61 translate
  310. 7.56 7.56 scale
  311. 0 0 1 0 90 arc setmatrix
  312. matrix currentmatrix
  313. 120.01 22.61 translate
  314. 7.56 7.56 scale
  315. 0 0 1 90 180 arc setmatrix
  316. closepath
  317. stroke
  318. grestore
  319.  
  320. % irpoly2
  321. 0 setlinejoin
  322. gsave
  323. newpath 112.45 57.67 m
  324. 152.45 57.67 l
  325. 152.45 42.55 l
  326. 112.45 42.55 l
  327. closepath
  328. stroke
  329. grestore
  330.  
  331. % rfrm
  332. 2 setlinejoin
  333. gsave
  334. % 4 arcs
  335. matrix currentmatrix
  336. 120.262 78.6012 translate
  337. 8.55116 8.55116 scale
  338. newpath 0 0 1 180 270 arc setmatrix
  339. matrix currentmatrix
  340. 144.638 78.6012 translate
  341. 8.55116 8.55116 scale
  342. 0 0 1 270 0 arc setmatrix
  343. matrix currentmatrix
  344. 144.638 78.6012 translate
  345. 8.55116 8.55116 scale
  346. 0 0 1 0 90 arc setmatrix
  347. matrix currentmatrix
  348. 120.262 78.6012 translate
  349. 8.55116 8.55116 scale
  350. 0 0 1 90 180 arc setmatrix
  351. closepath
  352. stroke
  353. grestore
  354.  
  355. % rfrm
  356. gsave
  357. % 4 arcs
  358. matrix currentmatrix
  359. 95.3487 154.433 translate
  360. 7.56 7.56 scale
  361. newpath 0 0 1 180 270 arc setmatrix
  362. matrix currentmatrix
  363. 120.229 154.433 translate
  364. 7.56 7.56 scale
  365. 0 0 1 270 0 arc setmatrix
  366. matrix currentmatrix
  367. 120.229 154.433 translate
  368. 7.56 7.56 scale
  369. 0 0 1 0 90 arc setmatrix
  370. matrix currentmatrix
  371. 95.3487 154.433 translate
  372. 7.56 7.56 scale
  373. 0 0 1 90 180 arc setmatrix
  374. closepath
  375. stroke
  376. grestore
  377.  
  378. % irpoly2
  379. 0 setlinejoin
  380. gsave
  381. newpath 112.45 97.55 m
  382. 152.45 97.55 l
  383. 152.45 112.67 l
  384. 112.45 112.67 l
  385. closepath
  386. stroke
  387. grestore
  388.  
  389. % rfrm
  390. 2 setlinejoin
  391. gsave
  392. % 4 arcs
  393. matrix currentmatrix
  394. 147.51 155.11 translate
  395. 7.56 7.56 scale
  396. newpath 0 0 1 180 270 arc setmatrix
  397. matrix currentmatrix
  398. 172.39 155.11 translate
  399. 7.56 7.56 scale
  400. 0 0 1 270 0 arc setmatrix
  401. matrix currentmatrix
  402. 172.39 155.11 translate
  403. 7.56 7.56 scale
  404. 0 0 1 0 90 arc setmatrix
  405. matrix currentmatrix
  406. 147.51 155.11 translate
  407. 7.56 7.56 scale
  408. 0 0 1 90 180 arc setmatrix
  409. closepath
  410. stroke
  411. grestore
  412.  
  413. % polyline2
  414. % arrow
  415. gsave
  416. newpath 132.45 97.5 m 131.419 94.3991 l 133.486 94.4009 l closepath
  417. eofill
  418. grestore
  419. 0 setlinejoin
  420. gsave
  421. newpath 132.459 87.2174 m
  422. 132.453 94.4 l
  423. stroke
  424. grestore
  425.  
  426. % polyline2
  427. % arrow
  428. gsave
  429. newpath 132.45 70 m 131.417 66.9 l 133.483 66.9 l closepath
  430. eofill
  431. grestore
  432. gsave
  433. newpath 132.45 57.5 m
  434. 132.45 66.9 l
  435. stroke
  436. grestore
  437.  
  438. % polyline2
  439. % arrow
  440. gsave
  441. newpath 132.45 42.5 m 131.417 39.4 l 133.483 39.4 l closepath
  442. eofill
  443. grestore
  444. gsave
  445. newpath 132.45 30 m
  446. 132.45 39.4 l
  447. stroke
  448. grestore
  449.  
  450. % polyline2
  451. % arrow
  452. gsave
  453. newpath 117.5 127.5 m 118.36 124.347 l 120.079 125.494 l closepath
  454. eofill
  455. grestore
  456. gsave
  457. newpath 127.5 112.5 m
  458. 119.22 124.921 l
  459. stroke
  460. grestore
  461.  
  462. % polyline2
  463. % arrow
  464. gsave
  465. newpath 107.34 147.538 m 108.419 144.453 l 110.054 145.718 l closepath
  466. eofill
  467. grestore
  468. gsave
  469. newpath 115.026 137.597 m
  470. 109.236 145.086 l
  471. stroke
  472. grestore
  473.  
  474. % polyline2
  475. % arrow
  476. gsave
  477. newpath 160.327 147.436 m 157.759 145.416 l 159.484 144.279 l closepath
  478. eofill
  479. grestore
  480. gsave
  481. newpath 137.369 112.589 m
  482. 158.622 144.847 l
  483. stroke
  484. grestore
  485.  
  486. % irpoly2
  487. gsave
  488. newpath 22.45 82.67 m
  489. 62.45 82.67 l
  490. 62.45 67.55 l
  491. 22.45 67.55 l
  492. closepath
  493. stroke
  494. grestore
  495.  
  496. % polyline2
  497. % arrow
  498. 0.5 setgray
  499. gsave
  500. newpath 112.5 105 m 108.8 106.233 l 108.8 103.767 l closepath
  501. eofill
  502. grestore
  503. 0.4 setlinewidth
  504. gsave
  505. newpath 47.5 105 m
  506. 108.8 105 l
  507. stroke
  508. grestore
  509.  
  510. % polyline2
  511. gsave
  512. newpath 42.5 82.5 m
  513. 42.5 102.5 l
  514. stroke
  515. grestore
  516.  
  517. % ellarc3
  518. 2 setlinejoin
  519. gsave
  520. matrix currentmatrix
  521. 46.7628 102.481 translate
  522. 4.26294 2.51894 scale
  523. newpath 0 0 1 179.569 80.0419 arcn setmatrix
  524. stroke
  525. grestore
  526.  
  527. % polyline2
  528. % arrow
  529. 0 setgray
  530. gsave
  531. newpath 42.6835 67.1416 m 41.6502 64.0416 l 43.7168 64.0416 l closepath
  532. eofill
  533. grestore
  534. 0 setlinejoin
  535. 0.2 setlinewidth
  536. gsave
  537. newpath 42.6835 48.2807 m
  538. 42.6835 64.0416 l
  539. stroke
  540. grestore
  541.  
  542. % text
  543. /complex_color false def
  544. matrix currentmatrix [1 0 0 1 116.533 20.07] concat
  545. 25.4 144 div dup scale 0 0 m
  546. 21 ss 0.000 21.000 m (Times-Roman028) getfont (Source) s 7.000 nx sp (Program) s
  547. setmatrix
  548.  
  549. % text
  550. /complex_color false def
  551. matrix currentmatrix [1 0 0 1 121.951 47.57] concat
  552. 25.4 144 div dup scale 0 0 m
  553. 21 ss 0.000 21.000 m (Times-Roman028) getfont (Front) s 7.000 nx sp (End) s sp
  554. setmatrix
  555.  
  556. % text
  557. /complex_color false def
  558. matrix currentmatrix [1 0 0 1.00001 132.905 71.9314] concat
  559. 25.4 144 div dup scale 0 0 m
  560. 21 ss -74.156 21.000 m (Times-Roman028) getfont (Intermediate ) s 57 ss
  561. -110.688 57.000 m (Representation \(IR\)) s
  562. setmatrix
  563.  
  564. % text
  565. /complex_color false def
  566. matrix currentmatrix [1.00001 0 0 1.00001 132.281 99.3526] concat
  567. 25.4 144 div dup scale 0 0 m
  568. 21 ss -90.508 21.000 m (Times-Roman028) getfont (Generated Code) s 57 ss
  569. -101.746 57.000 m ( Generator \(GCG\)) s
  570. setmatrix
  571.  
  572. % text
  573. /complex_color false def
  574. matrix currentmatrix [1.48191 0 0 1.05299 118.663 128.735] concat
  575. 25.4 144 div dup scale 0 0 m
  576. 13 ss -40.702 13.000 m (Times-Roman018) getfont (Assembler ) s 37 ss
  577. -27.984 37.000 m (Module) s
  578. setmatrix
  579.  
  580. % text
  581. /complex_color false def
  582. matrix currentmatrix [1 0 0 1 92.7179 151.893] concat
  583. 25.4 144 div dup scale 0 0 m
  584. 21 ss 0.000 21.000 m (Times-Roman028) getfont (Machine) s 7.000 nx sp (Code) s sp
  585. setmatrix
  586.  
  587. % text
  588. /complex_color false def
  589. matrix currentmatrix [1 0 0 1 143.017 152.57] concat
  590. 25.4 144 div dup scale 0 0 m
  591. 21 ss 0.000 21.000 m (Times-Roman028) getfont (Assembler) s 7.000 nx sp (Code) s sp
  592. setmatrix
  593.  
  594. % text
  595. /complex_color false def
  596. matrix currentmatrix [1.01868 0 0 1.22012 33.2779 70.2961] concat
  597. 25.4 144 div dup scale 0 0 m
  598. 39 ss 0.000 39.000 m (Times-Roman054) getfont (BEG) s 13.500 nx sp
  599. setmatrix
  600.  
  601. % text
  602. /complex_color false def
  603. matrix currentmatrix [0.999999 0 0 1 42.6835 33.547] concat
  604. 25.4 144 div dup scale 0 0 m
  605. 21 ss -92.449 21.000 m (Times-Roman028) getfont (Code Generator ) s 57 ss
  606. -107.598 57.000 m (Description \(CGD\)) s
  607. setmatrix
  608.  
  609. % irpoly2
  610. 0.2 setlinewidth
  611. gsave
  612. newpath 18.9653 12.192 m
  613. 183.219 12.192 l
  614. 183.219 167.979 l
  615. 18.9653 167.979 l
  616. closepath
  617. stroke
  618. grestore
  619.  
  620. % rfrm
  621. 2 setlinejoin
  622. 0.2 setlinewidth
  623. gsave
  624. % 4 arcs
  625. matrix currentmatrix
  626. 30.4954 39.6312 translate
  627. 8.55116 8.55116 scale
  628. newpath 0 0 1 180 270 arc setmatrix
  629. matrix currentmatrix
  630. 54.8716 39.6312 translate
  631. 8.55116 8.55116 scale
  632. 0 0 1 270 0 arc setmatrix
  633. matrix currentmatrix
  634. 54.8716 39.6312 translate
  635. 8.55116 8.55116 scale
  636. 0 0 1 0 90 arc setmatrix
  637. matrix currentmatrix
  638. 30.4954 39.6312 translate
  639. 8.55116 8.55116 scale
  640. 0 0 1 90 180 arc setmatrix
  641. closepath
  642. stroke
  643. grestore
  644. grestore
  645.  
  646. %%Trailer
  647. end
  648. draw_initial_state restore
  649.  
  650.